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Guida per l'input dei programmi versioni 
C64 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
( /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario"' questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


{CLR} 

{HOME} 
{SU} " 
{GIU'} 
{.SIN} 
{DES} 

{ RVS } 
{OFF} 

{ BLK } 

{WHT} 
{RED} 




01 


e=CR$R =3 


fAfll Q 

CHI □ 












{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 

[ < 1 > I 
[<2>J 

{< 3 > } 
[< 4 >] 

{< 5 > ) 
t<6>] 


CIRI 


□ a 


□ a 

QQ 







□ 





E 
I 



[<7>J 
[ < 8 > } 
{FI} 

{F2} 

{F3} 

{F4 } 

{F5} 

{F 6 } 

{F7 } 

{F8 } 


QO 

ho 


Per ricevere gli arretrati dì compilare il seguente tagliando: 

K 

. £A Compilare ed inviare in busta chiusa a: 

J.SOl t viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841 


□ 








-2-3 


Nome _ 

Cognome _ 


Indirizzo 


CAP_ Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 


ìvh 




5^ SyJ'J dedicato a 


Anno 


Anno 


a L. 2.000 cad. per un totale di L . . a mezzo 


□ assegno allegato 

K 


□ contanti allegati 
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9 

13 

15 

19 

20 
24 
27 


Attacco dal cosmo 

di John Smith trad e adatt di S. Albarelli 

64 Buon Natale 

di P O. Johnson trad. e adatt. di M Anticoli 

Merge & Renumber 

di H Van Merk trad e adatt di P Maffei 

Forte riflesso 

di J. Collins trad. e adatt. di F. Sarcina 

Nuovi caratteri per il tuo C64 

di V Lopez trad e adatt di M Anticoli 

Fuoco! 

di S. Trick trad. e adatt. di M. Anticoli 

Campionato di lettura 

di N. Finder trad e adatt. di S. Dionigi 

I muratori 

di Cynewulf Wicklow trad e adatt di S Dionigi 
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Stop Bus 


Se non l'hai sia fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "-.rem " seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 






sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vensono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251,1 34,252,132,253,8,201 ,13,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,173 
340 DATA251 ,3,1 33,21 4,76,55,999 
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Attacco dal cosmo 


Pt 


Ancora una volta gli alieni stanno 
tentando di invadere il nostro ama¬ 
to pianeta con stormi di navette 
intelligentissime e altamente peri¬ 
colose. Tu sei al comando deiruni¬ 
ca base terrestre munita di raggio 
laser rimasta a difendere il genere 
umano, e devi combattere e di¬ 
struggere il maggior numero di na¬ 
vette aliene possibili. 

Ce ne sono vari tipi: ci sono gli esa- 
stormi, formati da sei navette che 
volteggiano nel cielo lanciando 
pericolosissime bombe indistrutti¬ 
bili anche con il laser, che devono 


essere evitate; ci sono poi gli stor¬ 
mi da attacco, che aleggiando di¬ 
scendono rapidamente verso il 
suolo. 

Infine quando un esastormo viene 
completamente annientato com¬ 
pare la nave madre che ri posiziona 
altre sei navette al posto di quelle 
distrutte. 

A ttenzione perché la vita è una so¬ 
la, e durante il gioco dovrete per¬ 
ciò sfruttare al massimo le vostre 
capacità di reazione. 

Ed ora mano alla tastiera e via!! 


10 POKE53280,0:POKE53281 , 0:PRINT"{CLR}{WHT}" : rem 89 

15 HS = 0 : rem 110 

18 PRINT"{CLR}ATTENDERE, DEFINIZIONE CARATTERI.":G 

OTO9000 : rem 20 

20 GOSUB8000 : rem 170 

21 X= 1 5:SC=0:L=3:M=INT(RND(1)*18) :G= 3 :H=INT(RND(1)*18) 

: rem 111 

30 A$ = " AB AB AB AB AB AB ":B$ = " CD CD CD CD CD CD ":C$ = " 
{ 19 -SPAZI}" : rem 200 

35 D$ = " EF{ 2 SPAZI}EF ":QQ=1 : rem 177 

40 DI=1:Y=0:HI=0:CD$="{ HOME }{ 21 GIU'}":SS=1024:CS=55296 

: rem 113 

80 PRINT"{HOME}"SPC(17)"{CYN}.RECORD."HS : rem 132 

100 IFQQ=1THENAA$=B$:QQ=2:GOTOl20 : rem 249 

110 IFQQ=2THENAA$=A$:QQ=1 :rem 243 

120 PRINTLEFT?(CD$,4)SPC(Y)"{CYN}"AA$ :rem 228 

140 X=X-2*(PEEK(1 97)=23ANDX< 31)+2*(PEEK(197)=12ANDX>1) 

: rem 9 

150 PRINTCD$TAB(X);"{ 2 SPAZI}NG{ 2 SPAZI}" : rem 98 


1 55 IFPEEK(1 97)=36THENGOSUBl 000 :PRINT"{HOME}{CYN}PUNTI"SC 

:rem 58 
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1 60 

Y=Y+DI 

: rem 

62 

1 70 

IFY=0ORY=2 1THENDI=-DI 

: rem 

58 

1 75 

PRINTLEFT$(CD$,L+1)SPC(M)"{ 8 SPAZI}" 

: rem 

1 7 

1 80 

L=L+1 :M=M+INT(RND(1)*4) -INT(RND( 1 ) *4) 

: rem 

51 

1 85 

IFL= 21THENL= 3 :D$ = " EF{ 2 SPAZljEF " 

: rem 

61 

1 86 

IFM>32THENM=31 

: rem 

59 

1 87 

IFM<8THENM=9 

: rem 

226 

1 88 

PRINTLEFT$(CD$,L+1)SPC(M)"{RED}"D$ 

: rem 

1 53 

1 90 

PRINTLEFT$(CD$,G+1)SPC(H)"{ 2 SPAZI}" 

: rem 

4 

200 

G=G+3:PRINTLEFT$(CD$,G+1)SPC(H)"LM":IFG<>21THEN210 



: rem 

1 67 

201 

G=3:PRINTCD$SPC(H)"{ 2 SPAZI}":H1=H:H=INT(RND(1)* 

17) + 


1 

: rem 

6 

202 

IFHl =X+30RHl=X+20RHl=X+1THEN4000 

: rem 

1 53 

21 0 

REM 

: rem 

1 1 9 

300 

GOTO!00 

: rem 

93 

1 000 

IFPEEK(SS+X+122)<>32THENHI=1 

: rem 

1 88 

1 005 

IFPEEK (SS+X+2+L*40) 0 32THEN1 080 

: rem 

45 

1 007 

IFPEEK(SS+X+3+L*40) 0 32THEN1 0 80 

: rem 

48 

1 009 

FORZZ = 20TO2STEP-1 

: rem 

1 1 5 

1 020 

POKESS + ZZ*4O+X+2,103 :POKECS + ZZ*4O+X+2,1 

: rem 

78 

1 030 

NEXT 

: rem 

3 

1 031 

FORZZ = 20TO2STEP-1 :POKESS+X+2+ZZ*40,32 :NEXT 

: rem 

21 2 

1 040 

IFHIOl THENl 050 

: rem 

1 33 

1 041 

XY = X-Y+2:IFXY<1THENXY= 1 

: rem 

36 

1 042 

A$=LEFT$(A$,XY-1)+"{ 3 SPAZI}"+MIDS(A$,XY+3) 



• 

: rem 

50 

1 043 

B$=LEFT$(B$,XY-1)+"{ 3 SPAZI}"+MID$(B$,XY+3 ) 




: rem 

54 

1 045 

SC = SC+10 :PRINTLEFT$(CD$,4)SPC(X+l)"{RED}{ 3 

H}" 




: rem 

21 2 

1 046 

FORDL=1TO50:NEXTDL 

: rem 

1 93 

1 048 

PRINTLEFT8(CD$,4)SPC(X+l)"{ 3 SPAZI}" 

: rem 

52 

1 050 

HI = 0 

: rem 

1 96 

1 055 

IFA$=C$THEN2000 

: rem 

84 

1 060 

RETURN 

: rem 

1 67 

1 080 

IFG=1THENIFH=X+1ORH=X+2THENRETURN 

: rem 

238 

1 081 

FORZZ = 20TOLSTEP- 1 

: rem 

1 41 

1 082 

POKEZZ*4 0+SS+X+2,103 :POKECS+ZZ*4O+X+2 , 1 

: rem 

86 

1 083 

NEXT 

: rem 

1 1 

1 084 

FORZZ = 20TOLSTEP-1 :POKESS + X+2 + ZZ*4 0,32 :NEXT 

: rem 

246 

1 090 

MX=X-M+2: IFMX<1THENRETURN 

: rem 

1 97 

1 1 30 

D$ =LEFT$(D$,MX-1)+"{ 4 SPAZI}"+MID$(D$ ,MX+4) :SC = 

SC+2 


0 

: rem 

82 

1 1 31 

PRINTLEFT$(CD$,L+l)SPC(X+l)"{ 4 H}" 

: rem 

1 93 

1 1 35 

FORDL=lTO50:NEXTDL 

: rem 

1 92 

1 1 37 

PRINTLEFT?(CD$,L+1)SPC(X+1)"{ 4 SPAZI}" 

: rem 

167 

1 1 40 

RETURN 

: rem 

1 66 

2000 

PRINTLEFT$(CD$,4)SPC(Y)C$ 

: rem 

241 

201 0 

FORF=0TO25 SPRINT"{HOME}{ 8 GIU'}"SPC(F)"{ 2 

SPAZI}I 


JK" 

: rem 

44 
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2020 IFFO0ANDFO3ANDFO6ANDFO9ANDFO1 2ANDFO! 5THEN2040 

: rem 130 

2022 F0RI = 6T02STEP-2:PRINTLEFT5(CD$,1 + 1)SPC (F+l)" 

{ 2 SPAZI}":NEXTI:PRINT"{HOME}{ 3 GlU'}"SPC(F+l)" 
{CYN}AB" : rem 43 

2040 NEXTF : rem 75 

2042 FORF=2 5T034STEP2 : rem 17 

2046 PRINT"{HOME}{ 8 GIU'}"SPC(F)"{ 3 SPAZI}IJK": rem 87 
2048 PRINT"{HOME}{ 8 GIU'}"SPC (28)"{ 5 SPAZI}":GOTO30 

:rem 245 

3000 IFMID$(D$,2)<>"E"THEN3 080 : rem 228 

3050 RETURN :rem 168 

3080 IFG=1ANDH=X+20RH=X+1THENRETURN :rem 5 

3160 RETURN :rem 170 

4000 FORF=1T065 :PRINTLEFT$(CD$,22)SPC(X);"{WHT}{ 5H} 

{ 5 SIN}{ 6 SPAZI}" : rem 27 

4040 IFSC>HSTHENHS = SC : rem 99 

4050 PRINT"{HOME}{ 10 GIU'}"TAB(15)"{RVS}{YEL}FINE GIOCO" 

: rem 108 

4060 PRINT:PRINT"{ 3 SPAZI}PREMI UN TASTO PER GIOCARE ANC 

ORA." : rem 208 

4070 POKEl98,0:WAIT198,1 :rem 102 

4080 PRINT"{WHT}{CLR}":GOT021 : rem 11 

4999 END : rem 182 

8000 PRINT"{CLR}"TAB(12)"{WHT}ATTACCO DAL COSMO":PRINTTAB 
(12)"{ 17 *}" : rem 167 

8060 PRINT"{ 3 GIU'}{RED}USA QUESTI TASTI PER MUOVERTI E 

SPARARE: { 2 GIU'}{YEL}Z.SINISTRA" : rem 75 

8065 PRINT" {GIU ' }X.DESTRA" : PRINT" {GIU ' }M. 

.FUOCO" : rem 215 

8070 PRINT"{GIU'}{ 6 SPAZI}PREMI UN TASTO PER INIZIARE.": 

POKEl98,0:WAITl98,1 :PRINT"{CLR}":RETURN :rem 89 

8999 STOP : rem 41 

900 0 IFPEEK(56)=4 8THENPOKE532 72, (PEEK(53272)AND240)+1 2:GO 
T09500 : rem 113 

9002 POKE56,48:POKE52,48 :CLR:POKE56334,PEEK(56334)AND2 54 : 

POKEl,PEEK(1)AND251 :rem 219 

9003 FORF = 0TO2047 :POKEl 2288 + F,PEEK(53248 + F) :NEXT:POKEl ,PE 

EK(1)OR4 : rem 137 

9004 POKE5 63 34,PEEK(56334)ORI : rem 122 

9006 POKE53272, (PEEK(53272)AND240)+1 2 :rem 238 

9008 FORF=OTOl11:READA:POKEl2808+F,A:NEXT :rem 251 

9010 DATA3 4,35,36,62,15,7,2,14 : rem 236 

9020 DATA36,1 96,228, 252,240,224,64,1 1 2 : rem 131 

9030 DATA2,3,7,63,39,39,34,3 : rem 145 

9040 DATA64,1 92,32,1 24,228,228,68,1 92 : rem 95 

9050 DATAI 28,1 66,242,1 23,61 , 47,39, 3 :rem 243 

9060 DATAI,101,79,222,188,244,196,192 :rem 93 

9070 DATA0,240,248,252,254,6,6,6 :rem 88 

9073 DATAI 45,82,0,3,192,0,74,145 : rem 89 

9080 DATA7,31 , 1 27,1 70,1 70,1 27,31 ,7 :rem 185 
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9090 DATA2 55,255,255,170,170, 
9100 DATAI 92,240,252,1 70,1 70, 
9110 DATAI 8,19,18,28,4,2,1,1 
9120 DATA72,200,72,56,32,64,1 
9300 DATAI,31,63,127,255,193, 
9500 GOTO20 


255,255,255 

: rem 

248 

252,240,192 

: rem 

222 


: rem 

1 35 

28,128 

: rem 

238 

192,192 

: rem 

35 


: rem 

1 05 


64 Buon Natale 


Anche questo Natale è alle porte. 
Con il nostro masnificio C64 biso- 
Sna aiutare il povero Babbo Nata¬ 
le, che in questo periodo è molto 
indaffarato. Per far ciò devi far sì 
che Babbo Natale raccoisa i resali 
che cadono dal cielo e li porti nelle 
case. 

Mediante i tasti Z e X è possibile 


hi 

* 

<0 


spostare la slitta rispettivamente a 
sinistra e a destra. Con la barra spa¬ 
ziatrice invece si lasciano cadere i 
resali, presi precedentemente, nel 
caminetto simulato dai due punti 

ii // ' 

• • 

Una canzoncina in tema natalizio 
verrà esesuita dal tuo C64 all'inizio 
e alla fine della partita. Buon Natale!! 


1 

REM **** BUON NATALE !!!! **** 

: rem 

21 0 

2 

REM **** DA PAPERSOFT ! ! ! ! **** 

: rem 

35 

3 

POKE532 80,1 :POKE53281 ,1 

: rem 

1 38 

5 

PRINT"{CLR}ATTENDERE PREGO_" 

: rem 

60 

7 

POKE52,48:POKE56,48:CLR 

: rem 

236 

1 0 

HS=0:DIMD$(40) 

: rem 

1 54 

1 1 

AT$="{HOME}{ 25 GIU'}" 

: rem 

88 

1 2 

GOSUB9000 :GOSUB8000:GOSUB9 300 

: rem 

1 80 

1 5 

SK=.98 :S = 0 

: rem 

21 8 

20 

A$ = :B$ = :C$ = "%":X=26 

: rem 

46 

21 

FORT = 0TO4 0 :D$(T)=" ":NEXTT 

: rem 

1 67 

25 

G=2:H=INT(RND(1)*36)+2 

: rem 

1 1 0 

26 

PRINT"{WHT}{HOME}"SPC(24)"RECORD :"HS 

: rem 

1 98 

27 

P=0 

: rem 

38 

28 

PRINT"{WHT}{HOME}REGALI :"S 

: rem 

1 48 

30 

KY = PEEK(197) :IFKY=23THENXl=X-2*(X< 37) 

■ a • a a 

:A$ = :B$ = "' 

" :C$ 

35 

— Il /Il 

: rem 

1 03 

IFKY=12THENX1=X+2*(X>1):A$="#":B$="$" 

:C$="%" : rem 

246 
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37 PRINTLEFT$(AT$,11)"{ 40 SPAZI}" 

40 IFXl<>XTHENPRINTLEFT$( AT$,11)SPC(X) 


It II 


34 


: rem 

:POKEVO+18,129 




: rem 

46 

42 PRINTLEFT$(AT$,11)SPC(Xl)CHR$(28)A$CHR$(5)B$CHR$(28)C$ 

• 

• 

X=X1:POKEVO+18,128 

: rem 

1 40 

50 IFP=0THENGOSUB200 

: rem 

242 

60 IFG=16THENIFPEEK(1664+H)=58THENl000 

: rem 

242 

61 IFG= 1 6THENIFPEEK ( 1 664+H) 058THEN2000 

: rem 

49 

65 IFG=16THENPRINTLEFT$(AT$,G)SPC(H)" ";:G=2:H= 

INT(RND(1) 

* 

36) +2 

: rem 

1 72 

70 IFP=1THENIFKY = 60THENG=10:H=X+(A$="&")-3*(A$= 

” # " ) : P 

= 0 


• 

: rem 

71 

80 IFRND(1)>SKTHENGOSUB300 

: rem 

1 23 

90 GOTO30 

: rem 

5 

200 

POKEVO+l,30-G:POKEVO+4,33 

: rem 

1 96 

205 

G=G+1:PRINTLEFT$(AT$,G-1)SPC(H)" 

: rem 

1 73 

21 0 

PRINTLEFT$(AT$,G)SPC(H)")"; 

: rem 

1 9 

220 

IFG=11THENIFH=X+20RH=X+1ORH=XTHENP=l 

: rem 

70 

230 

POKEVO+4,0 

: rem 

36 

249 

RETURN 

: rem 

1 27 

300 

REM 

: rem 

1 1 9 

305 

Q=INT(RND(1)*9)+1:E=INT(RND(1)*4) 

: rem 

67 

310 

PRINTLEFT?(AT$,20)SPC(Q*4-E+l)"{RVS}{RED} {OFF}" 



• 

: rem 

1 92 

320 

IFD$(Q* 4 - 3)="P"ANDD$(Q*4-2)="P"ANDD$(Q*4-l) 

="P"ANDD$( 


q*4) ="p"THEN2000 

: rem 

1 43 

349 

RETURN 

: rem 

1 28 

880 

GOSUBl1040 

: rem 

22 

1 000 

REM 

: rem 

1 65 

1 005 

PRINTLEFT?(AT$,G)SPC(H) " " ; 

: rem 

29 

1 01 0 

IFPEEK(1864+H)=169THEN25 

: rem 

1 28 

1 01 5 

S=S+1:POKEVO+8 , 10+S:FORTT=1TO50:POKEVO+11 , 

33 : NEXTTT: 


POKEVO+11 , 32 

: rem 

59 

1 020 

PRINTLEFT?(AT$,22)SPC(H) " {RVS}{WHT} ) {OFF} " 

: rem 

206 

1 025 

FORF = 3T03 7STEP4 : IFPEEK(1864+F)=1 6 9THENNEXTF:S K=SK- . 0 


2:GOSUB9300:GOTO20 

: rem 

1 93 

1 030 

GOTO25 

: rem 

1 00 

2000 

REM 

: rem 

1 66 

201 0 

IFPEEK(1864+H)<>169THEN6000 

: rem 

29 

2020 

GOTO30 

: rem 

96 

2499 

RETURN 

: rem 

1 84 

6000 

REM 

: rem 

1 70 

6002 

FORTT=10TO2STEP- . 5 

: rem 

1 50 

6005 

PRINTLEFT?(AT$,TT)SPC(XI)CHR$(28)A$CHR$(5)B$CHR$ 

(28) 


C$:POKEVO+l8,128 

: rem 

223 

6007 

PRINTLEFT?(AT$,TT+1 )SPC(XI ) "{ 3 SPAZI}" 

: rem 

231 

6010 

NEXTTT 

: rem 

174 

601 5 

PRINTLEFT$(AT$,2)SPC(Xl )"{ 3 SPAZI}" 

: rem 

20 

6020 

IFS>HSTHENHS=S 

: rem 

221 

6025 

PRINTLEFT$ ( AT$ , G ) SPC(H) " "; 

: rem 

36 

6030 

PRINTLEFT$(AT$ , 22)SPC(Q*4) " {WHT} - " 

: rem 

1 5$ 
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6035 

6040 

6060 

6070 

8000 

81 04 

81 05 
8850 

8999 

9000 
9005 
901 0 
9020 
9025 
9030 
9035 
9040 
9050 
9070 
9300 
9305 
9307 
931 0 
9320 
9330 
9340 

9350 
9360 
9370 
9380 
9390 
9499 
1 0000 
1 001 0 
1 0020 
1 0030 
1 0040 
1 0050 
1 0060 
1 0070 
1 0080 
1 0090 
1 0099 
1 1 000 
1 1 005 


PRINTLEFT$(AT$,10)SPC(15)"{RVS}{WHT}GAME OVER" 
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:rem 143 

PRINTSPC(6)CHR$(8) "{ 3 GIU'}{BLK}{RVS}PREMI UN TASTO 
PER GIOCARE{OFF}" : rem 133 

POKEl98 f 0 :FORT=1TOl 000 :NEXTT:POKEl98,0 :rem 116 

XX=-1 :GOSUBl 1 042:GOSUB9300 :GOTOl5 : rem 41 

PRINT"{CLR}{BLK}{ 3 SPAZI}ASCOLTA QUESTA DOLCE MUSIC 
HETTA! 1" : rem 54 

PRINTTAB(7)"{BLK}{ 3 GIU'JPREMI UN TASTO PER GIOCARE 

76 
64 
244 
1 95 
1 73 
1 80 
1 9 
1 05 
1 03 
236 
92 
143 
1 89 
1 76 
1 96 
247 
251 
1 76 
105 
49 


GOSUBl1000 

POKE532 72, (PEEK(53272)AND240)+1 2 
RETURN 
REM 

POKE53265,PEEK(53265)OR64 
POKE5 63 3 4,PEEK(563 34) AND2 54 
POKEl ,PEEK(1)AND2 51 
FORI = 0TO511 :POKEl 2288 + 1,PEEK(53248 + 1) :NEXTI:rem 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


FORI = 0TO7:POKEl 22 88+8*32 + 1,0 :NEXT 
FORI=0TO7:POKEl 2288+8*31+1,255:NEXT 
FORI = 0TO8 *11-1 : READA :POKEl 2568 + 1,A:NEXT 
POKEl,PEEK(1)OR4:POKE 5 6 3 3 4,PEEK(5 6 3 3 4)ORI 
RETURN 

PRINT"{CLR}{WHT}":POKE532 80,0:POKE532 81 ,0 

POKE532 82,0:POKE532 83,2:POKE532 84,0 

F0RX=2T034STEP4 

PRINTLEFT$(AT$,17)SPC(X+l)":" 

PRINTLEFT$(AT$,18)SPC(X+l)"{PUR}*+" 
PRINTLEFT$(AT$,19)SPC(X)"*--+" 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


PRINTLEFT$(AT$,20)SPC(X)"{WHT}{RVS} 


/ f i 9 


{OFF}" 


PRINTLEFT$(AT$,21)SPC(X)"{RED} 
PRINTLEFT$ ( AT$ , 22) SPC (X) " 
PRINTLEFT$ ( AT$ , 23) SPC (X) " 
PRINTLEFT$ ( AT$ , 24) SPC (X) " 

NEXTX 

RETURN 

DATAO,0,1,0,0,0,0,0 

DATAI 92,64,1 60,224,127,126,99,82 

DATA8,28,8,124,156,72,63,128 

DATAI 6,56, 1 6,62,56,1 8,2 52,1 

DATA3,2,5,7,254,126,198,74 

DATA0,0,128,0,0,0,0,0 

DATA0,0,0,54,54,0,54,54 

DATAO,1,3,7,15,31,63,127 

DATA0,128,192,224,240,248,252,254 

DATA255,220,73,65,64,0,0,0 

DATA24,60,86,60,24,126,255,255 

REM 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


11 2 
177 
1 51 
1 53 
1 55 
108 
1 91 
1 92 
1 32 
1 87 
1 29 
85 
47 
1 69 
222 
1 74 
71 
40 
21 4 


VO= 54 2 72 :Wl=32:POKEVO+5,13:POKEVO+6,123:POKEVO+24,1 
5 : rem 161 
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1 1 007 

POKEVO+12,9:POKEVO+13,246:W2=16 

: rem 

140 

1 1 009 

POKEVO+19,9:POKEVO+2 0,1 29:POKEVO+15,20 : rem 

89 

1 1 01 0 

FORT=1T08:READL(T),H(T):NEXTT 

: rem 

164 

1 1 020 

FORT=1T07: READN(T) :NEXTT 

: rem 

1 41 

1 1 030 

Vi=PEEK (63) :V2 = PEEK (64) :V3 = PEEK(65) 

:V4=PEEK(66) 




: rem 

59 

1 1 040 

READXX,YY 

: rem 

1 60 

1 1 042 

IFXX=-1THENPOKE63,Vi :POKE64,V2:POKE65,V3:POKE66 

, V4 : 


GOTOl1040 

: rem 

80 

1 1 045 

POKEVO,H(XX):POKEVO+1,L(XX) 

: rem 

39 

1 1 047 

POKEVO+ 7,H(XX)+22 :POKEVO+8,L(XX) 

: rem 

33 

1 1 050 

POKEVO+4,W1+1 :POKEVO+11 ,W2 + 1 

: rem 

230 

1 1 052 

FORTT=1T02 5 :NEXTTT 

: rem 

33 

1 1 055 

POKEVO+4,Wl:POKEVO+11,W2 

: rem 

51 

1 1 060 

FORTT=1TON(YY)/2 :NEXTTT 

: rem 

1 07 

1 1 070 

GETA$:IFA$ <>""THENRETURN 

: rem 

57 

1 1 080 

GOTOl1040 

: rem 

41 

1 201 0 

DATAI 9,63,21 ,1 54,22,227,25,1 77,28,21 4,32,94,34, 

75,3 


8,126 

: rem 

33 

1 2020 

DATAI 00,1 37,22 5,350,4 75,72 5, 82 5 

: rem 

81 

1 2030 

DATA6,1,6,1,6,3,6,1,6,1,6,3,6,1,8,' 

1,4,1,5,1,6,5 




: rem 

32 

1 2040 

DATA7,1,7,1,7,1,7,1,7,1,6,1,6,1,6, 1 

! ,6,1,5,1,5,1 

,6,1 


,5,3,8,3 

: rem 

95 

1 2050 

DATA6,1,6,1,6,3,6,1,6,1,6,3,6,1,8,1 

!,4,1,5,1,6,5 



/ 

: rem 

34 

1 2060 

DATA7,1,7,1,7,1,7,1,7,1,6,1,6,1,6,1 

00 

00 

,5,1 


,4,3,4,3 

: rem 

98 

1 2070 

DATA4,1,5,1,4,3,2,3,7,3,5,3,4,7 

: rem 

36 

1 2080 

DATA4,1,5,1,4,1,5,1,4,3,7,3,6,7 

: rem 

37 

1 2090 

DATA3,1,4,1,3,3,1,3,6,3,5,3,4,7 

: rem 

33 

1 2095 

DATA4,1,5,1,4,1,5,1,4,3,5,3,2,7 

: rem 

37 

1 21 00 

DATA4,1,5,1,4,3,2,3,7,3,5,3,4,7 

: rem 

30 

1 21 1 0 

DATA4,1,5,1,4,1,5,1,4,3,7,3,6,7 

: rem 

31 

1 21 20 

DATA3,1,4,1,3,3,1,3,6,3,5,3,4,7 

: rem 

27 

1 21 30 

DATA4,1,5,1,4,1,5,1,4,3,8,3,7,7 

: rem 

35 

1 21 40 

DATA -1,-1,-1 

: rem 

1 32 
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Merge & Rcnumbcr 

i 

Queste due utility permettono di 
sopperire ad alcune carenze del 
Basic del C64 per quanto riguarda 
l’editing dei programmi. Con la pri¬ 
ma routine, infatti, potrete caricare 
un programma Basic senza cancel¬ 
lare quello già presente in memoria 
(effettuando quindi il "merge", 
cioè l'unione dei due programmi). 
La seconda, invece, vi offre la pos¬ 
sibilità di rinumerare le linee di un 
programma, aggiornando contem¬ 
poraneamente gli indirizzi conte¬ 
nuti nelle istruzioni di “salto", vale 
a dire GOSUB, GOTO, ON... GO¬ 
TO, ecc. 

Il programma "Merge" va digitato 
e salvato PRIMA di farlo "girare”; 
chi utilizza il disk drive tolga la pa¬ 
rola REM alla linea 150. La routine 
si attiva una volta per tutte carican¬ 
dola e dando il RUN; così facendo 
un programmino in linguaggio 
macchina viene memorizzato in 
fondo alla RAM Basic, modifican¬ 
done i puntatori. A questo punto, 
se si desidera “concatenare" due 
programmi Basic, uno presente in 
memoria e l’altro registrato su cas¬ 
setta o disco, è sufficiente digitare 

SYS40705 “nomeprogramma" (da 
nastro) 

SYS 40705 “nome programma”,8 
(da disco) 

Fate però attenzione ai "range" dei 
numeri di linea dei programmi da 


concatenare: se infatti non sono di¬ 
sgiunti possono verificarsi incon¬ 
venienti molto spiacevoli. Ad 
esempio, un programma i cui nu¬ 
meri di linea vanno da 10 a 1000 
non può essere concatenato ad un 
programma il cui range sia 100 -. 
2000; prima di effettuare il merge 
sarà necessario rinumerare uno dei 
due programmi. Inoltre, se abbia¬ 
mo un programma A con range 10- 
500 e un programma B con range 
1000-2000, dovremo prima carica¬ 
re A e poi effettuare il merge con 
B,- infatti, dato che i programmi 
vengono caricati uno di seguito al¬ 
l’altro, se facessimo il contrario 
avremmo i numeri di linea “alti” pri¬ 
ma di quelli “bassi”, e il program¬ 
ma risultante non potrebbe venir 
eseguito correttamente. 

Il programma " Renumber" è intera¬ 
mente scritto in Basic e numerato 
a partire dalla linea 63000, in modo 
da poter coesistere praticamente 
con qualsiasi altro programma Ba¬ 
sic (infatti in genere non vengono 
mai usati numeri di linea così alti). 

Il programma da rinumerare, una 
volta caricato in memoria, deve ve¬ 
nir sottoposto ad un piccolo "adat¬ 
tamento”, che consiste nel modifi¬ 
care gli indirizzi delle istruzioni di 
“salto ” in modo che essi siano sem¬ 
pre composti da 5 cifre (esempio: 
GOTO 20 deve essere sostituito 
con GOTO 00020). “Renumber” va 
poi concatenato tramite un merge 
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al prosramma da rinumerare, ed 
attivato disitando RUN 63000. 
Eventuali errori commessi nella 
correzione desìi inidirizzi vensono 
sesnalati bloccando l'elaborazio¬ 
ne,- dopo aver provveduto alla 
correzione, disitare nuovamente 
RUN 63000. Quando la rinumera¬ 
zione è completa appare il mes- 


sassio "FATTO",- abbiate un po’ di 
pazienza perché il procedimento 
può richiedere anche diversi minu¬ 
ti. I numeri di linea partono ora da 
10000 ed hanno incremento 10; il 
programma rinumerato può quindi 
venir salvato dopo aver cancellato 
manualmente le linee del "Renum- 
ber" (63000-63360). 


Merge 


1 00 

POKE55,0 :POKE56, 1 59:CLR:PRINT"{CLR}" 

: rem 

222 

1 1 0 

S = 4070 5 :F0RJ = ST0S + 7 8 :READV 

: rem 

89 

1 20 

C=C+V:POKEJ,V:NEXT 

: rem 

1 33 

1 30 

IFCO8756THEWPRINT"ERR0RE NELLE DATA": END 

: rem 

36 

1 40 

PRINT"PER EFFETTUARE IL MERGE:”:PRINT"{GIU'}SYS4 

0705" 


CHR$(34)"NOME"CHR$(34); 

: rem 

1 78 

1 50 

REM PRINT",8" 

: rem 

1 75 

1 60 

DATAI 69,0,133,10,32,212,225,165 

: rem 

220 

1 70 

DATA43,72,165,44,72,56,165,45 

: rem 

1 47 

1 80 

DATA233,2,133,43,165,46,233,0 

: rem 

125 

1 90 

DATAI 33,44,169,0,133,185,166,43 

: rem 

240 

200 

DATAI 64,44,1 69,0,32,21 3, 2 55,1 76 

: rem 

232 

21 0 

DATAI 4,1 34,45, 1 32,46,32,51 , 1 65 

: rem 

1 74 

220 

DATAI 04,1 33,44,1 04,1 33,43,96,1 70 

: rem 

1 6 

230 

DATA201,4,144,244,240,10,104,133 

: rem 

0 

240 

DATA44,104,133,43,24,108,0,3 

: rem 

65 

250 

DATAI 64,1 86,136,240,209,208,239 

: rem 

246 

260 

PRINT:NEW 

: rem 

73 


Rcnumber 


63000 
6301 0 
63020 
63030 
63040 
63050 

63060 
63070 
63080 
63090 
631 00 

631 1 0 
63120 
631 30 
63140 


CLR:DIMZZ(500,1 ):IN=2049 :LA=IN :PP=LA : 
DEFFNDH(X)=PEEK(X)+256*PEEK(X+l) : 
DEFFNH1(X)=XAND255 : 
DEFFNH2(X)=INT(X/256) : 
IFPPOFNDH (LA) THEN63080 : 
LA=FNDH(LA) :NL=FNDH(LA+2) :IFNL= 6 3 000THEN6 32 

IFPEEK (LA+5) =1 43THENPP=FNDH(LA) -.GOTO63050 : 
PP=PP+4 : 
IFPEEK(PP)<>167THEN63120 : 
S=0:IFPEEK(PP+1)=32THENS=1 : 
IFPEEK(PP+1+S)< 480RPEEK(PP+1+S)>57THEN63260 

G0T063130 : 
IFPEEK (PP) <>1 37ANDPEEK(PP) 0141 THEN63260 : 
S=0:IFPEEK(PP+1)=62THENS=1 : 

GG$ = "": FORI = 1+ST05+S:IFPEEK(PP+I)<480RPEEK( 
THEN632 50 ; 


rem 

rem 

rem 

rem 

rem 

70 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

PP+I) 

rem 


1 

1 85 
1 32 
31 
21 2 

252 
65 
220 
233 
1 43 

1 40 
49 
223 
1 41 
>57 
220 


14 




631 50 
631 60 
631 70 

631 80 
631 90 
63200 

6321 0 
63220 
63230 
63240 
63250 

63260 

63270 

63280 

63290 
63300 
6331 0 
63320 
63330 
63340 

63350 

63360 


GG$ =GG$ +CHR$(PEEK(PP +1)) :NEXT : rem 32 

GG=VAL(GG$) : Li= IN :L2 = FNDH(IN+2) :LL=1 000 0 :rem 150 
IFL2 = 63000THENPRINT"LINEA NON DEFINITA ALLA LINEA"; 
NL:END : rem 69 

IFL2 =GGTHEN632 2 0 : rem 6 

Li=FNDH(Li):L2=FNDH(Li+2):LL=LL+10 :rem 30 

IFPEEK(Li+4)=143ANDPEEK(Li+5) =3 5THENLL=1 000*INT( (LL 
+1000)/I000) 

G0T063170 

ZZ(ZI,0)=LL:ZZ(ZI,1)= PP+S:ZI=Z1+1 
IFPEEK(PP+S+6)=44THENPP=PP+6+S:G0T063130 
G0T06 32 60 

PRINT"COMANDO NON STANDARD ALLA LINEA";NL 

PP=PP+1:GOTO63040 
LA=IN:LL=10000 

IFPEEK(LA+4)=143ANDPEEK(LA+5)=3 5THENLL=1 000*INT( (LL 
+1000)/l000) 

IFFNDH(LA+2)=63000THEN63320 
POKELA+2 t FNHl (LL) :POKELA+3 , FNH2(LL) 

LL= LL+1 0 :LA=FNDH (LA) : GOTO63280 
IFZ1 = 0THEN6 3 3 60 
FOR1 = 0 TO ZI-1 

FORJ=1T05:POKEZZ(I,1)+J,ASC(MID$(STR$(ZZ( 

):NEXT 
NEXT 

PRINT"FATTO": END 


: rem 

1 08 

: rem 

54 

: rem 

137 

: rem 

34 

: rem 

END 

57 

: rem 

1 1 9 

: rem 

74 

: rem 

99 

0 *INT( (LL 

: rem 

148 

: rem 

81 

: rem 

1 74 

: rem 

1 1 0 

: rem 

206 

: rem 

64 

,0) ) , 

J+l ) 

: rem 

6 

: rem 

64 

: rem 

98 


U 



u 


Forte riflesso 


Questo sioco per due persone ti 
permetterà, organizzando tornei 
all'italiana, di stabilire chi tra i tuoi 
amici ha i migliori riflessi e il miglior 
colpo d'occhio. 

Ogni giocatore, per fare spostare 
la propria squadra di tiro alla fune 
allontanandola da un burrone, de¬ 
ve colpire, quando è il proprio tur¬ 


no (i turni sono sempre alternati) 
una croce posta nella parte bassa 
dello schermo. Si usano i tasti “A " 
e “i". 

Spiegazioni più dettagliate sul fun¬ 
zionamento di FORTE RIFLESSO 
sono contenute nel listato, per cui 
ti rimandiamo a questo. Buon di¬ 
vertimento! 


5 GOSUB9000 
10 GOSUB8000 
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: rem 126 
: rem 169 




20 GOSUB7000 : rem "169 

50 T=1 024 :MM=119 : rem 105 

1 00 0 POKET,MM:T=1 02 4 + 2 3*4 0+(RND(1) *3 8 + 1 ) : MM=PEEK(T) :POKET 



,91:M=0 

: rem 

1 75 

1 005 

POKES + 4,32 :POKES+4,33 

: rem 

229 

1 01 0 

FORF=0TO39:L=M:M=PEEK(1024+F):POKEl024+F, 

1 37 




: rem 

85 

1 01 5 

POKE3+1,70-F 

: rem 

1 71 

1 020 

IFLOOTHENPOKEl 024 + F- 1 , L 

: rem 

1 80 

1 025 

FORH = 0TO1 0:NEXT 

: rem 

225 

1 030 

GETA$:IFA$="A"THENPOKEl024+F,138:GOTO2000 

: rem 

1 40 

1 040 

NEXT:POKEl024+F-1,M:GOT03000 

: rem 

1 78 

2000 

POKEl024+F,M:POKES+4,32 

: rem 

78 

201 0 

FORG=1T024 :L=M:PO=1 024 + 40*G+F:M=PEEK(PO): 

POKEPO, 

1 38: 


POKEPO-4 0,L 

: rem 

1 28 

2020 

IFM= 91THEN21 00 

: rem 

57 

2030 

NEXT:POKEPO,M:GOT03 0 0 0 

: rem 

1 87 

21 00 

POKEPO,M 

: rem 

1 0 

21 1 0 

Y=Y- 1 

: rem 

1 7 

21 20 

PRINTLEFT$(DN$,18);LEFT$(AC$,Y);A$(1);J$; 

B$ ( 1 ) ; " 

It 



: rem 

1 78 

21 30 

PRINTLEFT$( DN$,19);LEFT$(AC$,Y);A$(2);SP$ 

;B$(2); 

Il II 

• 



: rem 

1 5 

21 40 

IFPEEK (1024 + 702)01 3 3THEN3 000 

: rem 

90 

2145 

POKES + 4,32 :POKES+4,33:POKES + 1 , 1 0 

: rem 

1 44 

21 50 

U= 21 :PRINTLEFT$(DN$,18);LEFT$(AC$,U + 1) ;"{ 

2 R}" 




: rem 

242 

21 55 

PRINTLEFT$(DN$,19);LEFT$(AC$,U+1);"{ 2 SPAZI}":GOSUB 


6000 

: rem 

1 65 

21 60 

IFTB=.02THENB$(1)="{RVS}EFEF{OFF}";B$(2) = 

"{RVS}GHGH 


{OFF}":SP$=SP$+"{ 2 SPAZI}":J$=J$+"{ 2 R} 

" : rem 

77 

21 70 

IFTB=.00 2THENB$(1)="{RVS}EF{OFF}":B$(2) =" 

{RV S} GH 



{OFF}":SP$=SP$+"{ 2 SPAZI}":J$=J$+"{ 2 R} 

" : rem 

100 

21 80 

IFTB=.0002THENW=1:GOTO6500 

: rem 

79 

21 90 

TB=TB/10 

: rem 

1 97 

3000 

POKET,MM:T=1024+23*40+(RND(1)*38+1):MM=PEEK(T):POKET 


,91:M=0 

: rem 

1 77 

3005 

POKES + 4,32 :POKES + 4 , 3 3 

: rem 

231 

301 0 

FORF=39TOOSTEP-1 :L=M:M=PEEK(1 024 + F) :POKEl 024+F,1 

37 



: rem 

241 

301 5 

POKES+1,70-39+F 

: rem 

68 

3020 

IFLOOTHENPOKE1 024+F+1 , L 

: rem 

1 80 

3025 

FORH = OTOl0 :NEXT 

| 

: rem 

227 

3030 

GETA$:IFA$="L"THENPOKEl024+F,138:GOTO4000 

: rem 

1 55 

3040 

NEXT:POKEl024+F+1,M:GOTOl000 

: rem 

1 76 

4000 

L=M:POKES+4,32 

: rem 

70 

401 0 

FORG=1T024 :L=M:PO= 1 024 + 40*G+F:M=PEEK(PO): 

POKEPO, 

1 38: 


POKEPO-40,L 

: rem 

1 30 

4020 

IFM=91THEN4100 

: rem 

61 

4030 

NEXT:POKEPO,M:GOTOl000 

: rem 

1 87 

41 00 

POKEPO,M 

: rem 

1 2 
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41 1 0 

Y = Y+1 

: rem 

1 7 

41 20 

PRINTLEFT$(DN$,18);LEFT$(AC$,Y-1);" ";A$(1) 

;J$ ;B$ ( 1) 



: rem 

1 8 

4T 30 

PRINTLEFT$(DN$ ,19);LEFT$(AC$,Y-1);" ";A$(2) 

;SP$;B$(2 


) 

: rem 

1 1 1 

41 40 

IFPEEK (1024 + 6 97)01 30 THE Ni 000 

: rem 

1 00 

41 45 

POKES + 4,32 :POKES+4,33:POKES+1 ,1 0 

: rem 

1 46 

41 50 

U=18 :PRXNTLEFT5(DN$,18) ;LEFT$(AC$,16) ;"{ 2 

R} " 




: rem 

1 76 

41 55 

PRINTLEFT$(DN$,19);LEFT$(AC$,16);"{ 2 SPAZI}":GOSU36 


000 

: rem 

93 

41 60 

IFTA=.02THENA$(1)="{RVS}ABAB{OFF}":A$(2)="{RVS}CDCD 


{OFF}":SP$=SP$+"{ 2 SPAZI}":J$=J$+"{ 2 R}" 

: rem 

44 

41 70 

IFTA=.002THENA$(1)="{RVS}AB{OFF}":A$(2)="{RVS}CD 



{OFF}":SP$=SP$+"{ 2 SPAZI}":J$=J$+"{ 2 R}" 

: rem 

83 

41 80 

IFTA=. 0002THENW= 2 :G0T06500 

: rem 

81 

41 90 

TA=TA/10:GOTOl000 

: rem 

249 

6000 

FORF=19T024:PRINTLEFT$(DN$,F);LEFT$(AC$,U); 

"{RVS}KL 


{GlU' }{ 2 SIN}MN{OFF}"; 

: rem 

1 7 

601 0 

IFF>19THENPRINTLEFT$(DN$,F-1);LEFT$(AC$,U); 

n 



{ 2 SPAZI}"; 

: rem 

228 

601 5 

FORI = 0TO5:NEXT 

: rem 

1 86 

6020 

NEXT:PRINTLEFT$(DN$,F);LEFT$(AC$,U);"{SU}{ 

2 SPAZI} 


{GlU 1 }{ 2 SIN}{RVS} KL {OFF}"; 

: rem 

107 

6025 

FORI=0TO5:NEXT 

: rem 

1 87 

6030 

PRINTLEFT$(DN$,F);LEFT$(AC$,U);"{ 2 SPAZI}" 

• 

f 




: rem 

220 

6040 

RETURN 

: rem 

1 70 

6500 

FORC = 0TO2 0 :POKES+1,10:FORJ = 0TO50: :NEXT:POKES + 1 ,20 

: FO 


RJ=0TO50:NEXT:NEXT 

: rem 

23 

6505 

POKES + 4,32 :POKEl98,0 

: rem 

1 69 

651 0 

PRINT"{CLR}MOLTO BENE GIOCATORE ";W;" - HAI 

VINTO 

i » 


• 

: rem 

51 

6520 

PRINT"{ 3 GIU 1 }PREMI UN TASTO PER RIGIOCARE 

":POKEl98 


,0 

: rem 

95 

6530 

GETA$:IFA$ = ""THEN6 530 

: rem 

1 91 

6540 

GOTO20 

: rem 

1 06 

7000 

POKE532 81 ,6 :PRINT"{CLR}":POKE532 81 ,3 

: rem 

1 96 

7005 

DN$ = "{HOME}{ 24 GIU'}" 

: rem 

1 74 

7006 

AC$="{ 40 DES}" 

: rem 

1 26 

701 0 

A(0)=119 : A(1)=69:A(2)=68:A(3)=67:A(4)=70:A( 

5)=70: 

A ( 6 


)=82 : A(7)=111:A(8)=111 

: rem 

246 

7020 

FORI = 1 02 4 TO1 574STEP18 

: rem 

22 

7030 

FORJ = 0TO8:POKE1 +J,A(J) :NEXT 

: rem 

235 

7040 

FORJ= 8TO0STEP-1 :POKE1 + 8-J + 9,A(J) :NEXT 

: rem 

79 

7060 

NEXTI 

: rem 

85 

7070 

GR$ = "[< 17 +>] { 6 SPAZI}[< 17 +>]" 

: rem 

24 

7080 

PRINTLEFT?(DN$,20) ;:FORI = lT05:PRINTGR$; :NEXT:PRINTLE 


FT$(GR$,39); 

: rem 

90 

7085 

POKE2023,102 

: rem 

1 37 


17 


70 90 A$(1)="{RVS}ABABAB{OFF}": 3$(1)="{RVS}EFEFEF{OFF}":A$ 
(2)="{RVS}CDCOCD{OFF}" : B$(2)="{RVS}GHGHGH{OFF}" 

:r era 30 


7095 

J$="{ 8 R}":SP$ = "{ 8 SPAZI}" 

: rem 

21 4 

71 0Q 

PRINTLEFT$(DN$,18);LEFT$(AC$,10);A$(1); J$ ; 

B$ (1 ) 




: rem 

62 

71 1 0 

PRINTLEFT$(DN$,19);LEFT$(AC$,10);A$(2);SP$ 

;B$(2) 




: rem 

1 55 

71 20 

TA=.02 :TB = TA:T=0:Y=10 

: rem 

250 

71 30 

S=54272:POKES + 24,15 :POKES + 5,15:POKES + l ,70 

: rem 

1 51 

71 40 

RETURN 

: rem 

1 72 

8000 

PRINT"{CLR}ATTENUI UN MINUTO" 

: rem 

1 80 

801 0 

POKE56334,PEEK(56334)AND254 

: rem 

1 8 

8020 

POKEl,PEEK(1)AND251 

: rem 

1 04 

8030 

FORI = 0TOl2 8 :FORJ=0TO7 

: rem 

88 

8040 

POKEl4336+1*8+J,PEEK(53248+1*8+J) 

: rem 

58 

8050 

NEXTJ,I 

: rem 

203 

8060 

POKEl,PEEK(1)OR4:POKE56334,PEEK(56334)ORI 

: rem 

1 89 

8070 

POKE53272,(PEEK(53272)AND240)ORl4 

: rem 

1 02 

8080 

FORI=129T0142:FORJ=0TO7:READD:POKEl4336+1* 

8 + J, D : 

NEXT 


J, I 

: rem 

1 88 

81 00 

DATA24,52,62,60,24,31,255,15,0,0,0,0,0,248 

,255,240,1 


5,7,7,3,0,0,0,0,0 

: rem 

33 

81 1 0 

DATAI 28,192,224,112,24,12,7,0,0,0,0,0,31,255,15, 

24,4 


4,124,60,24,248 

: rem 

220 

81 20 

DATA255,240,0,1,3,7,14,24,48,224,240,224,224,192 

,0,0 


,0,0,0 

: rem 

27 

81 30 

DATAI 29,66,36,102,255,126,60,16,124,254,0, 

1 6,56, 

1 6,4 


0,1 , 1 95,101,55 

: rem 

207 

81 40 

DATA2 7, 15,7,3,128,1 95,166,236,1 52,240,224, 

192,3, 

3,3, 


7,14,28,184,112,192 

: rem 

208 

81 50 

DATAI 92,1 92,22 4,1 1 2,56,2 9,1 4 

: rem 

1 43 

81 60 

RETURN 

: rem 

1 75 

9000 

POKE532 81 , 3 :POKE53280,6 

: rem 

39 

9005 

PRINT"{CLR}{BLK}{GIU'}{ 12 SPAZl}FORTE RIFLESSO" 




: rem 

1 36 

9006 

PRINT"{GIU'}" 

: rem 

1 77 

9007 

PRINT" 0[< 36 Y>]P" 

: rem 

252 

9008 

FORI = 1TOl3 :PRINT" {<G>]{ 36 SPAZI}[<M>}":NEXT 




: rem 

70 

9009 

PRINT" L[< 36 P> ] @ " 

: rem 

1 97 

9010 

PRINT"{ 13 SU}{ 2 DES}UN GIOCO PER DUE PERSONE IN CU 


I PER" 

: rem 

1 34 

9020 

PRINT"{ 2 DES}VINCERE OCCORRONO OTTIMI RIFLESSI. 

VI 


PRINT"{ 2 DES}UN UFO VOLERÀ' ATTRAVERSO LO 

: rem 

251 

9030 

SCHERMO" 


PRINT"{ 2 DES}E UN BERSAGLIO APPARIRÀ' IN I 

: rem 

1 1 

9040 

3ASSO. 1 

II 



: rem 

1 2 

9050 

PRINT"{ 2 DES}BISOGNA COLPIRE IL BERSAGLIO 

FACENDO" 



: rem 

7 


18 







9060 PRINT"{ 2 DES}CADERE L'UFO SULLA SUA VERTICALE. 


11 





: rem 

1 8 

9070 

PRINT"{ 

2 

DES}SI USANO I TASTI 'A' ED 'L'•": rem 

1 71 

9080 

PRINT"{ 

2 

DES}SE SI COLPISCE IL BERSAGLIO CI" 

: rem 

27 

9090 

PRINT"{ 

2 

DES}SI ALLONTANERÀ 1 DAL BURRONErem 

237 

91 00 

PRINT"{ 

2 

DES}SE QUALCHE UOMO CADE SARA 1 PIU 1 " 

: rem 

32 

91 1 0 

PRINT"{ 

2 

DES}DIFFICILE RECUPERARE TERRENO." 

: rem 

1 44 

91 20 

PRINT"{ 

4 

GIU'H 6 DES}PREMI UN TASTO PER INIZIARE" 

: rem 124 

91 30 
91 40 

GETA$:IFA$ 
RETURN 

= ""THEN9130 : rem 

: rem 

1 89 
1 74 


Nuovi caratteri per il tuo 64 


u 

« 4 1 


Ti proponiamo in questo numero 
un breve prosramma che ti per¬ 
metterà di avere un set di caratteri 
personalizzato per il tuo 64. Potrai 
utilizzarlo, per mezzo di una su¬ 
broutine, nei tuoi propri program¬ 
mi, ottenendo un ottimo risultato 


grafico. Il nuovo set si adatta mol¬ 
tissimo soprattutto in ambientazio¬ 
ni di tipo medioevale (ricorda in¬ 
fatti abbastanza da vicino i caratte¬ 
ri gotici). Per ritornare al set norma¬ 
le premi RUN/STOP + RESTORE. 


1 REM** NUOVI CARATTERI ** :rem 237 

2 REM** PAPERSOFT ** : rem 114 

10 PRINT"{CLR}ATTENDERE PREGO...":POKE56334,PEEK(56334)AN 

D2 54 :POKE1 ,PEEK(1)AND2 51 :rem 195 

20 FORX= 0TO2 04 7 :POKEl 2288+X,PEEK(53248+X) :NEXT:POKEl ,PEEK 


(l)OR4 : rem 85 

3 0 POKE56334,PEEK(56334)ORI :POKE53272, (PEEK(53272)AND240) 


+ 1 2 

: rem 

1 05 

35 FORX= 0TO2 0 7 : READA :POKEl 2288 + 8 + X,A:NEXT 

: rem 

33 

37 POKE53281 ,1 

: rem 

249 

38 PRINT"{BLK}" 

: rem 

204 

4 0 END 

: rem 

59 

10100 REM * * *CARATTERI DATA *** 

: rem 

1 39 

10110 DATAI 20,1 64,36,60,36,1 64,66,0 

: rem 

222 

10120 DATAI 24,162,34,60,34,162,124,0 

: rem 

6 

10130 DATA24,38,68,64,64,36,24,0 

: rem 

85 

10140 DATAI 24,1 62,34,34,34,1 62,124,0 

: rem 

9 


19 



1 01 50 

DATAI 24 

, 162,32,56,32,162,124,0 

: rem 

1 0 

1 01 60 

DATAI 2 4 

,162,32,56,32,160,64,0 

: rem 

220 

1 01 70 

DATA26, 

36,64,76,68,36,24,0 

: rem 

92 

1 0180 

DATA98, 

164,36,60,36,164,98,0 

: rem 

200 

1 01 90 

DATA56, 

84,16,16,16,84,56,0 

: rem 

92 

1 0200 

DATA60, 

74,8,8,232,72,48,0 

: rem 

30 

1 021 0 

DATA98, 

162,36,40,56,164,98,0 

: rem 

1 92 

1 0220 

DATA96, 

160,32,32,34,162,124,0 

: rem 

21 8 

1 0230 

DATA84, 

170,42,42,42,162,68,0 

: rem 

1 77 

1 0240 

DATA88, 

164,36,36,36,164,66,0 

: rem 

1 94 

1 0250 

DATA48, 

72,132,132,132,72,48,0 

: rem 

226 

1 0260 

DATAI 24 

,162,34,60,32,160,64,0 

: rem 

21 8 

1 0270 

DATA48, 

72,132,132,148,72,52,0 

: rem 

230 

1 0280 

DATAI 24 

,62,34,60,40,164,98,0 

: rem 

1 81 

1 0290 

DATAI 26 

,130,128,124,2,130,252,0 

: rem 

56 

1 0300 

DATAI 2 4 

,146,16,16,16,16,56,0 

: rem 

1 71 

10310 

DATA72, 

164,36,36,36,36,26,0 

: rem 

1 31 

1 0320 

DATA68, 

162,34,34,20,20,8,0 

: rem 

69 

1 0330 

DATA6 8, 

162,34,42,42,42,20,0 

: rem 

1 1 9 

1 0340 

DATA66, 

164,24,24,36,66,132,0 

: rem 

1 80 

1 0350 

DATA68, 

162,20,8,8,40,16,0 

: rem 

27 

1 0360 

DATAI 2 6 

,132,8,16,32,66,252,0 

: rem 

1 76 


n 

o* 

Fuoco! 

Gli alieni ancora per l'ennesima 
volta cercano di invadere il nostro 
pianeta! Usando i tasti J e K per 
muovere la nostra base rispettiva¬ 
mente a sinistra ed a destra e fa¬ 
cendo fuoco premendo il tasto F si 
deve tentare di fermare i cattivi in¬ 
vasori. All’inizio del gioco è possi¬ 
bile selezionare due tipi di sfondo 
di gioco: con montagne o senza. 


Bisogna colpire tre volte la nave 
nemica per distruggerla, mentre a 
questa è sufficiente un solo colpo 
per polverizzare la nave terrestre. 
Ad ogni successivo schema la na¬ 
ve aliena si muoverà più veloce¬ 
mente. FUOCO! usa gli sprites ed 
è un programma molto gradevole 
graficamente. 


1 

DIMS1(39):V=53248:HI=0 

: rem 

87 

2 

RESTORE:GOSUB3 0 00:POKE53280,0 :SC = 0 

: rem 

21 5 

3 

DATAI ,2,2,2,2,},3,3,3,3 

: rem 

207 

4 

DATAI,2,2,2,2,1,2,2,2,1 

: rem 

203 

5 

DATAI ,3,3,3,3 f 3,3,3,3,3 

: rem 

21 5 


20 





6 DATAI,4,4,4,4,1,2,2,2,1 

: rem 

21 3 

7 DATAI,4,4,4,4,1,3,3,3,1 

: rem 

21 7 

8 DATA2,2,2,2,2,1 , 3, 3,3,3 

: rem 

21 3 

9 DATAI , 3,3,3,3, 1 , 3, 3, 3,1 

: rem 

21 5 

1 0 

DATAI,3,3,3,3,1,4,4,4,1 

: rem 

2 

11 

DATA5,5,5,5,5,5,5,5,5,5,1,2,2,2,2,2,2,2 

, 2,1 : rem 

1 96 

1 2 

X=175:Y=195:P=195:SY=50:SP=SY:SM=SX:M=0 

il 

w 

co 

• • 

o 

ii 

Z 

• • 




: rem 

1 63 

23 

FORA=1TO70:K=INT(RND(1)*15):PRINTSPC(K) 

; " ; :NEXTA 




: rem 

228 

24 

IFBG=OTHENFORA= 0TO3 9 :READS1 (A) :NEXT:G0T041 : rem 

1 23 

25 

FORA=0TO39 

: rem 

1 1 

26 

READY1:S1(A)=Y1 

: rem 

37 

27 

FORB = YlTOl9 :POKE(55296+A+40*B) ,12 

: rem 

33 

28 

POKE(1024+A+40*B),93 

: rem 

1 76 

30 

NEXT 

: rem 

1 62 

32 

POKE(1024+A+40*Yl),100 

: rem 

24 

40 

NEXT 

: rem 

1 63 

41 

POKEl164,81 :POKE554 3 6,7 

: rem 

200 

92 

DATAI 3,14,15,16,17,16,14,13,12,11,10,9, 

00 

00 

00 

,9,1 


0,11,11,12,13,13,14 

: rem 

1 53 

93 

DATAI 4,14,13,12,11,11,10,9,9,8,7,6,7,8 

: rem 

254 

1 00 

V=53248 

: rem 

42 

1 30 

POKE2041,15 

: rem 

28 

1 40 

POKE2042,13 

: rem 

28 

1 50 

POKE2043,14 

: rem 

31 

1 60 

POKE2044,15 

: rem 

34 

1 70 

POKE2045,11 

: rem 

32 

200 

FORN=0TO62:READQ:POKE832+N,Q:NEXT 

: rem 

91 

21 0 

DATA0,0,0,0,90,0,0,255,0,1,129,128,15, 

255,240,56, 

0,28 


,127,255,254 

: rem 

72 

220 

DATA79,231,242,96,0,6,100,146,86,48,0, 

12,15,255,240,1 


5,60,240 

: rem 

1 60 

230 

DATA0,219,0,1,16,128,2,16,64,4,16,32,8 

,16,16,4,8, 

32,2 


,8,64,4,8,32 

: rem 

81 

300 

FORN=0TO62:READQ:POKE896+N,Q:NEXT 

: rem 

1 02 

320 

DATA0,0,0,0,0,0,0,129,0 

: rem 

43 

330 

DATAI,129,128,0,129,0,0,129,0 

: rem 

112 

340 

DATAI,129,128,3,0,192,3,129,192 

: rem 

227 

350 

DATAI 5,0,240,31 ,0,248,43,0,212 

: rem 

1 56 

360 

DATA33,255,132,33,255,132,34,255,68,31 

,126,248,39 

, 1 89 


,228,47,214,244 

: rem 

33 

370 

DATA31,231,248,63,231,252,127,195,254 

: rem 

24 

375 

FORN=704TO766:POKEN,255:NEXT 

: rem 

234 

400 

FORA=0TO62:READD:POKE960+A,D:NEXT 

: rem 

43 

41 0 

DATA0,24,0,0,24,0,0,36,0 

: rem 

1 00 

420 

DATA0,66,0,0,126,0,0,126,0 

: rem 

206 

430 

DATA0,126,0,0,66,0,0,66,0 

: rem 

1 62 

440 

DATAO,60,0,0,60,0,0,36,0 

: rem 

1 03 

458 

DATAO,36,0,0,60,0,0,60,0 

: rem 

1 1 2 

460 

DATAO,0,0,0,0,0,0,74,0 

: rem 

255 


21 


470 

DATAO,82,0,0,36,0,0,24,0 

: rem 

1 1 0 

473 

POKEV+21,28:POKEV+41 ,1 :POKEV+42,8 :POKEV+43 

, 14 :POKEV+7 


, Y : N = 0 

: rem 

36 

498 

POKEV+23,12 :B = 10 :S1 = 0.5 

: rem 

9 

500 

I=PEEK(197) 

: rem 

50 

501 

PRINT"{HOME}PUNTI :" ;SC 

: rem 

21 

51 0 

IF1 = 3 4THENX=X-B:GOT053 0 

: rem 

1 68 

520 

IF1 = 3 7ANDX< 244THENX=X+B:G0T0530 

: rem 

1 71 

525 

IFI=21ANDN=OTHENP=P-1:L=X:N=2 

: rem 

30 

530 

IFPCl95ANDP>10THENP = P-2 0 :GOTO600 

: rem 

1 84 

535 

IFP<20THENL=X:N = 0:P=1 95 

: rem 

1 33 

560 

IFP>190THENL=X 

: rem 

98 

600 

IFSX<X-1OORSX>X+1OORM= 2THEN7 1 0 

: rem 

1 32 

620 

SP=SY:M=2:POKEV+21 ,30:SM=SX 

: rem 

1 84 

71 0 

IFM=2THENSP=SP+15 

: rem 

38 

71 1 

IFSP>2 20ORM=0THENM=0:SP = SY:SM=SX:POKEV+21 , 

2 8 :r em 

76 

740 

IFX>2 55THENX=X-10 

: rem 

6 

741 

IFX< 30THENX=X+10 

: rem 

202 

750 

POKEV+b,X 

: rem 

6 

760 

IFPCl96ANDP> 20THENPOKEV+9,P 

: rem 

1 75 

770 

POKEV+8,L 

: rem 

254 

771 

0=SI*B:IFQ=2THEN0=-0 

: rem 

243 

772 

sx=sx+o 

: rem 

1 73 

775 

IFSX>2 54THENSY=SY+15:Q=2:SX=254 

: rem 

1 94 

776 

IFSXC30THENQ=0:SX=30:SY=SY+13 

: rem 

77 

780 

POKEV+4,SX:POKEV+5,SY 

: rem 

81 

781 

POKEV+2,SM:POKEV+3,SP 

: rem 

58 

790 

IFPEEK (V+30) =1 8ANDPO! 95THEN80 0 

: rem 

50 

791 

IFPEEK(V+30)=120RPEEK(V+30)=280RPEEK(V+30) 

=30THEN2000 



: rem 

88 

795 

IFPEEK(V+30)=20ORPEEK(V+30)=22THEN900 

: rem 

145 

796 

IFPEEK(V+30)=1OORPEEK(V+30)=18ANDP=1950RPEEK(V+30) 

= 26 


THEN2000 

: rem 

94 

797 

GOTO850 

: rem 

1 25 

800 

POKEV+40,2:POKEV+21,62:POKEV+l0,L:POKEV+l1 

,P: rem 

1 1 8 

81 0 

P=195 :L=X:SP = SY:M=0:N = 0:POKEV+44,1 

: rem 

62 

820 

FORA=1TOl00:NEXT:POKEV+21,30 

: rem 

1 85 

830 

POKEV+44,1 

: rem 

1 6 

850 

GOTO500 

: rem 

107 

900 

IFL>SX-2ANDLCSX+2THEN90 9 

: rem 

240 

90*1 

POKEV+10,L:POKEV+l1,SY:POKEV+21,62 

: rem 

40 

902 

FORA=lTOSO 

: rem 

57 

903 

POKEV+44,1 :POKEV+44,10 

: rem 

240 

904 

NEXTA:POKEV+21,14 

: rem 

251 

907 

SC=SC+10 

: rem 

1 49 

908 

GOTO500 

: rem 

1 1 1 

909 

IFL=SXTHENSC=SC+100 

: rem 

1 85 

91 0 

POKEV+21,0 

: rem 

9 

91 1 

PRINT"{CLR} " :FORA=lTO30 

: rem 

21 3 

920 

IFA/2=INT(A/2)THENC=2 : B=0:GOTO940 

: rem 

1 93 

930 

C=0:B=2 

: rem 

55 


22 




940 POKE53280,C 

: rem 

61 

950 POKE53281 ,B 

: rem 

62 

960 NEXT 

: rem 

222 

965 SC=SC+100 

: rem 

201 

980 POKE53280,0 :POKE532 81 ,0 

: rem 

246 

1 000 

X=175 :Y=195:P=195:SY=50:SX=20 :SP = SY:SM=SX: 

M=0:N= 

0 : Q= 


0:SE=SE+1 

: rem 

64 

1 001 

FORA=1TO70:K=INT(RND(1)*15):PRINTSPC(K);". 

"; :NEXTA 



: rem 

65 

1 002 

FORTY=1 TOSE:WE=INT(3 88*RND(1)+1 02 4) :POKEWE 

, 81 : POKEWE 


+ 54272,7 :NEXTTY 

: rem 

203 

1 003 

SI=SI+0.5 

: rem 

247 

1 004 

IFBG=0THEN101 0 

: rem 

59 

1 005 

FORA=0TO3 9 :FORB = Sl (A)TOl9 

: rem 

45 

1 007 

POKE(1 02 4+A+4 0 *B) ,224 

: rem 

58 

1 008 

POKE(552 96+A+4 0 *B) ,3:NEXT 

: rem 

1 47 

1 009 

POKE(1 02 4+A+4 0 *S1 (A)) ,88 :NEXT 

: rem 

97 

1 01 0 

B = 10 :GOTO500 

: rem 

1 70 

2000 

POKEV+21 ,0 :PRINT"{CLR} {YEL}{ 3 GlU' }":POKEl98,0 




: rem 

7 

2020 

PRINTTAB(9)"SEI STATO ANNIENTATO!!" 

: rem 

1 49 

2090 

PRINT:PRINT :PRINTSPC(15) ;"{RVS}{BLU}GAME OVER{WHT} 


{OFF}" 

: rem 

32 

2091 

PRINT:PRINTTAB(10);"RECORD{ 2 SPAZI}:";HI 

: rem 

237 

21 00 

PRINT"{ 2 GIU'}" 

: rem 

1 82 

21 1 0 

PRINTTAB(10);"{YEL}IL TUO{SPAZI}PUNTEGGIO 

: " ; SC 




: rem 

22 5 

21 1 1 

IFSC<=HITHEN2120 

: rem 

232 

21 1 2 

PRINTTAB(10);"{PUR}{ 2 GIU'} CONGRATULAZIONI!!!" 




: rem 

245 

211 3 

PRINTTAB(10);"{YEL}{GIU'}SEI IL NUOVO CAMPIONE": 

PRI N 


TTAB(10);"{ 2 GIU'}DIMMI IL TUO NOME"; 

: rem 

1 88 

211 5 

INPUTX$:HI=SC 

: rem 

1 1 5 

21 20 

FORZ=1T05000:NEXT 

: rem 

85 

21 30 

PRINT"{CLR}{WHT}" 

: rem 

47 

21 40 

PRINT"COSA VUOI FARE ? :":PRINT 

: rem 

95 

21 50 

PRINT" (1)..FINIRE" 

: rem 

52 

21 60 

PRINT" (2)..RIGIOCARE" 

: rem 

1 4 

21 70 

GETK$:IFVAL(K$)=1THENEND 

: rem 

249 

21 80 

IFVAL(K$)=2THENG0T02 

: rem 

6 

21 90 

GOT02170 

: rem 

207 

3000 

PRINT"{CLR}" 

: rem 

39 

3100 

POKE53280,0:POKE53281,0 

: rem 

25 

31 55 

PRINT"{CLR}" 

: rem 

50 

3500 

N$(1)="{RVS}{ 10 SPAZI}" 

: rem 

79 

351 0 

N$(2)="{RVS} { 8 DES} " 

: rem 

57 

3520 

N$(3)="{RVS}{ 9 DES} " 

: rem 

88 

3530 

N$(4)="{RVS} { 9 DES}" 

: rem 

90 

3540 

N$(5)="{RVS}{ 4 DES} { 5 DES}" 

: rem 

92 

3545 

FORA=9TOOSTEP-1 

: rem 
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3560 

3570 

3580 

3590 

3600 

3601 
361 0 
361 5 
3620 
3630 
3640 

3701 

3702 
371 0 

3715 

3720 

3740 

3745 

3746 

3747 

3748 

3749 

3750 



: rem 

78 

FORZ = 1TOl0 

: rem 

1 30 

READF:PRINTTAB(15) ;" [ <1>] ";N$(F) 

: rem 

203 

NEXT 

: rem 

1 6 

PRINT"{CLR}" 

: rem 

45 

FORQ=!TOl00:NEXT 

: rem 

29 

NEXT 

: rem 

9 

FORQ=1TOl00 :NEXT 

: rem 

34 

PRINT"{CLR}" 

: rem 

47 

PRINT:PRINT:PRINT:PRINT:PRINT"{CLR}" 

: rem 

76 

PRINTTAB(17)"FUOCO !" 

: rem 

203 

PRINT:PRINT:PRINT"J....SINISTRA" :PRINT"{ 2 GIU' 

} K. . 

..DESTRA" 

: rem 

1 40 

PRINT"{ 2 GIU'}F....FUOCO":PRINT 

: rem 

0 

FORA=1T030 :1FA/2 = INT(A/2)THENC = 2:B = 0:GOTO3 72 0 



: rem 

246 

C=0:B=10 

: rem 

1 54 

POKE532 80,C:POKE532 81 ,B 

: rem 

70 

NEXT 

: rem 

1 3 

PRINT"{ 3 GIU'}VUOI LO SFONDO ( S / N ) ? 

’" : rem 

222 

GETN$:IFN$="S"THENBG=1:G0T03749 

: rem 

1 65 

IFN$ = "N"THENBG=0:GOT03 74 9 

: rem 

20 

G0T03746 

: rem 

227 

PRINT"{CLR}" 

: rem 

59 

RETURN 

: rem 

1 75 


O 

e* 

^Campionato di lettura 


Il principio fondamentale di CAM¬ 
PIONATO DI LETTURA è che noi 
abbiamo la capacità di ricordare 
meslio una parola se la leggiamo in 
un contesto piuttosto che da sola. 
Questo programma aiuta appunto 
a sviluppare questa capacità. So¬ 
no necessari due giocatori. Il pri¬ 
mo, dopo essere stato interpellato 
dal computer, scrive cinque affer¬ 
mazioni e le cinque relative do¬ 
mande, quindi specifica con V o 


con F se le domande che lui pone 
sono vere o false. 

Tocca al secondo giocatore deci¬ 
dere il tempo che gli servirà per 
memorizzare le frasi. Si può sce¬ 
gliere da 1 a 10 secondi tenendo 
conto che minore sarà il tempo 
maggiore sarà il punteggio. 

Dopo che sono apparse le frasi, il 
secondo giocatore verrà messo al¬ 
la prova con le domande. 

Il punteggio è dato in base alle ri- 
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sposte corrette e al tempo che il 
giocatore ha avuto a disposizione 
per leggere le domande. 

Quindi i giocatori cambiano di ruo¬ 
lo e toccherà al secondo giocatore 


scrivere le domande, e al primo ri¬ 
spondere. 

Sembra complicato ma , v/e lo assi¬ 
curo, è più difficile spiegarlo che 
giocarci. 


i oo 
1i o 
1 20 
1 30 
1 40 
1 50 
1 60 
1 65 
1 70 

175 
1 80 
1 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

305 
310 
31 5 


REM CAMPIONATO DI LETTURA : rem 14 
Q= 5 :DIMP$(2,Q) ,Q$(2,Q) , A$(2,Q) : rem 15 
POKE53281 , 6 SPRINT"{CLR}{WHT}" : rem 202 
PRINTTAB(14)"{RVS}SPEED READING":PRINT : rem 54 
PRINT"BENVENUTO A QUESTO GIOCO CHE RICHIEDE": rem 188 
PRINT"VELOCITA'E CONCENTRAZIONEPRINT : rem 65 
PRINT"DEVI CERCARE DI CAPIRE TUTTE LE FRASI":rem 98 
PRINT"NEL MINOR TEMPO POSSIBILE." : rem 46 
PRINT"DOPO CHE LE FRASI SARANNO APPARSE SULLO" 

:rem 30 

PRINT"SCHERMO VERRÀ' POSTA UNA DOMANDA SUL" : rem 121 
PRINT"LORO CONTENUTO." : rem 147 
PRINT"RISPOSTE GIUSTE ALZANO IL TUO PUNTEGGIO" 

: rem 185 

PRINT"PIU'E'CORTO IL TEMPO A DISPOSIZIONE PIU'PUNTI S 
I PRENDONO." : rem 58 
PRINT"IL PRIMO GIOCATORE DEVE SCRIVERE LE 5":rem 106 
PRINT"FRAS I,LE 5 DOMANDE,E LE 5 RISPOSTE." : rem 162 
PRINT"IL SECONDO GIOCATORE DOVRÀ'SCEGLIERE IL" 


: rem 110 

PRINT"TEMPO (DA 0 A 10 SEC.) PER CUI LA FRASE" 

:rem 99 

PRINT"DOVRA'RIMANERE VISUALIZZATA SULLO{ 7 SPAZl}SCHE 
RMO." : rem 211 

PRINT:PRINT"PREMERE UN TASTO QUALSIASI PER ULTERIORII 
STRUZIONI : rem 190 

GETQ$:IFQ$=""THEN270 :rem 117 

PRINT"{CLR}VERRANNO MOSTRATE TUTTE LE FRASI." 

: rem 162 

PRINT"POI VERRANNO POSTE TUTTE LE RELATIVE{ 4 SPAZI} 
DOMANDE." : rem 243 

PRINT"QUINDI I RUOLI SI INVERTIRANNO E{ 8 SPAZI}TOCCH 
ERA'AL SECONDO GIOCATORE" : rem 39 

PRINT"SCEGLIERE LE DOMANDE." : rem 179 

PRINT"QUESTE DOVRANNO ESSERE POSTE IN MODO" : rem 187 

PRINT"DA POTER USARE VERO O FALSO NELLE{ 7 SPAZl}RISP 
OSTE : rem 192 
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320 

330 

340 

350 

360 


PRINT 

PRINT 


VI 

11 


VERO SARA'INDICATO CON UNA V" : rem 85 

E FALSO SARA'INDICATO CON UNA F." :PRINT 

: rem 185 

PRINT"ECCO UN ESEMPIO:PRINT :rem 56 

PRINT"{RVSjFRASE:{OFF} QUESTO E ' UN GIOCO COMPUTERIZZA 


TO." 

PRINT"{RVS}DOMANDA:{OFF} V O 


: rem 151 
F":PRINT"QUESTA E 1 UNA PA 



RTITA A CARTE.PRINT 


: rem 

1 5 

370 

PRINT"{RVS}RISPOSTA:{OFF} F" 


: rem 

4 

380 

PRINT:PRINT"PER INCOMINCIARE PREMERE UN TASTO A i 

CASO" 




: rem 

48 

390 

GETQ$:IFQ$=""THEN390 


: rem 

1 23 

400 

PRINT"{CLR}":P = 1 


: rem 

240 

41 0 

INPUT"NOME DEL PRIMO GIOCATORE";N$(1):PRINT :rem 

135 

420 

INPUT"NOME DEL SECONDO GIOCATORE" 

;N$(2):PRINT 





: rem 

1 3 

430 

PRINT"{CLR}ORA COMINCIA "N$(P)"." 


: rem 

1 65 

440 

FORX=1TOQ:PRINT:PRINT"SCRIVI LA FRASE #"X 

: rem 

84 

450 

PRINT:PRINT"LA FRASE NON PUO'ESSERE PIU'LUNGA DI 

UNAL 


INEA(40 CARATTERI)." 


: rem 

228 

460 

PRINT:INPUTP$(P,X) 


: rem 

1 38 

470 

IFLEN(P$(P,X))>4 0THEN4 50 


: rem 

93 

480 

PRINT:PRINT"SCRIVI LA DOMANDA #"X 


: rem 

0 

490 

PRINT:PRINT"LA DOMANDA NON PUÒ 1 OCCUPARE PIU'DI UNA L 


INEA(40 CARATTERI)." 


: rem 

1 27 

500 

PRINT:INPUTQ$(P,X) 


: rem 

1 34 

51 0 

IFLEN(Q$(P,X))>4 0THEN4 50 


: rem 

89 

520 

PRINT:PRINT"SCRIVI LA RISPOSTA #" 

X 

: rem 

1 24 

530 

PRINT:INPUTA$(P,X) 


: rem 

1 21 

540 

IFA$(P,X)<>"V"ANDA$(P,X)<>"F"THENPRINT"LA 

RISPOSTA DE 


VE ESSERE V O F":GOTO530 


: rem 

1 0 

550 

PRINT"{CLR}":NEXTX 


: rem 

207 

560 

K=1 :IFP=1THENK= 2 


: rem 

1 96 

570 

PRINT"OK "N$(K)PRINT 


: rem 

78 

580 

W(K) =0:S(K)=0 


: rem 

147 

590 

PRINT"SCEGLI IL NUMERO DI SECONDI 

PER CUI 

LA" 





: rem 

1 20 

600 

INPUT"FRASE DOVRÀ'RIMANERE VISUALIZZATA";S 

: rem 

6 

605 

IFS>10THENPRINT"TROPPO LUNGO !":GOTO5 90 

: rem 

1 83 

61 0 

FORX=1TOQ:PRINT"{CLR}{RVS}FRASE # 

"X:PRINT: 

PRINT:PRINT 


:PRINT:PRINTP$(P,X) 


: rem 

80 

620 

TI$ = "0000 00" 


: rem 

250 

630 

PRINT"{HOME}{ 14 DES}"TI$:IFTI<S* 

60THEN630 

: rem 

33 

640 

PRINT"{CLR}":FORT=0TO999:NEXTT,X 


: rem 

1 27 

650 

FORX=1T05:PRINT"{CLR}{RVS}DOMANDA 

#{OFF}"X 

:PRINT 





: rem 

1 52 

660 

PRINT:PRINTQ$(P,X):PRINT 


: rem 

81 

670 

INPUT"LA TUA RISPOSTA";A$:A$=LEFT$(A$,1) 

: rem 

59 

680 

IFA$ <>"V"ANDA$ < >"F"THENPRINT"DEVI 

RISPONDERE CON 

V O 


CON F.":GOT0670 


: rem 

238 



6 90 IFA$ =A$(P,X)THENS(K)=S(K)+700-S:PRINT"{RVS}CORRETTO": 



GOTO720 

: rem 

1 29 

700 

W(K)=W(K)+1 :PRINT"{RVS}SBAGLIATO":PRINTP$(P,X) 

: rem 

41 

71 0 

PRINT:PRINT:FORT=1TOI000:NEXTT 

: rem 

0 

720 

FORT=1T09 99 :NEXTT,X 

: rem 

225 

730 

IFP=1THENP = 2 : GOTO4 30 

: rem 

223 

740 

PRINT"{CLR}":PRINT 

: rem 

1 98 

750 

PRINTN$(1)" PUNTEGGIO:"S(1):PRINT5-W(1) 

"RISPOSTE 

GIUS 


TE" , 

: rem 

1 78 

760 

PRINT:PRINT 

: rem 

241 

770 

PRINTN$(2)" PUNTEGGIO:"S(2):PRINT5-W(2) 

"RISPOSTE 

GIUS 


TE" 

: rem 

1 83 

780 

IFS(1)>S(2)THENPRINTN$(1)" HA VINTO!" 

: rem 

69 

790 

IFS(2)>S(1)THENPRINTN$(2)" HA VINTO!" 

: rem 

71 








I muratori 




Stai guidando una navicella che or¬ 
bita lungo l’estremità superiore 
dello schermo. Intanto all'estremità 
inferiore i muratori stanno co¬ 
struendo un muro che eventual¬ 
mente riempirebbe l’intera area di 
gioco. L'obiettivo è lanciare gli 
umanoidi dall’astronave cercando 


di mandarli attraverso le aperture 
nel muro. Ricorda che non puoi 
commettere più di 10 errori. 

Per creare buchi attraverso i quali 
far passare gli omini hai a disposi¬ 
zione un numero infinito di bom¬ 
be, non potrai però sganciarne più 
di una alla volta. 


1 REM **** x MURATORI **** 

2 REM * BY CYNEWULF WICKLOW * 

5 POKE53280,2 :POKE53281 , 3 :PRINT"{CLR}{BLK}"; 

6 GOSUB4000 

7 POKE52,48:POKE56,48:CLR 

8 GOSUB180 

9 D$ = "{HOME}{ 25 GIU’}" 

10 HS=0 

15 PRINT"{RED}{HOME}{ 16 DES}RECORDHS 
20 X=X+F 

30 IFX=OORX=3 7THENDU=.04:HI = 14 :LO= 2 39 :GOSUB2 


: rem 

33 

: rem 

1 46 

: rem 

248 

: rem 

1 22 

: rem 

236 

: rem 

81 

: rem 

222 

: rem 

105 

: rem 

5 

: rem 

1 92 

000 :F = -F 


: rem 

1 83 
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32 PRINT"{HOME}PUNTEGGIO:";S;"{HOME}{ 29 DES}VITE :";LIVES 
;"{SIN} " : rem 234 

40 PRINT"{HOME}{GIU 1 TAB(X);" £ " : rem 239 

50 GETQ$:IFQ$ = "Z"THENIFT<>1THENT=1 :K=X+1 :L=2 : rem 236 

55 IFQ$="M"ANDX>3ANDX< 35THENIFZO!THENZ = 1 :Q=X+1 :I = 2 

:rem 207 

60 IFT=1THENPRINTLEFT$(D$ ,L+l);TAB(K)" ":L=L+1:PRINTLEFT$ 

(D$,L+1);TAB(K)"]" : rem 158 

61 IFT=1THENDU=.002:HI=8:LO=97:GOSUB2000 :rem 187 

62 IFT=1 THENIFPEEK ( ( (L+l ) *4 0) +K+1 024) O32THENG0SUB1 40 

: rem 80 


65 IFZ = 1 THENPRINTLEFT$ (D$ , 1 + 1 ) ;TAB(Q)" 1 = 1 + 1 :PRINTLEFT$ 



(D$,1+1);TAB(Q)"t" 

: rem 

1 70 

66 

IFZ = 1THENDU=. 002 : HI = 6:LO=71:GOSUB2000:IFPEEK(((1+1) 

*40 


) +Q+1 024) O32THENG0SUB1 60 

: rem 

99 

70 

IFL=21THENPRINTLEFT$(D$,L+1);TAB(K)" ":T=0 

: rem 

103 

75 

IFI = 21THENS = S+B*2:DU=.1:HI = 2 6:LO=l56 :GOSUB2000 :PRINTLE 


FT$(D$,1+1);TAB(Q)" " 

: rem 

96 

76 

IFI=21THENI=0:Z=0 

: rem 

203 

1 1 0 

A=A+C 

: rem 

1 91 

1 1 5 

PRINTLEFT?(D$,B+1);TAB(A);MID$("{BLK}{GRN}{BLU}[<7>] 


[<4>]",RND(1)*5+1,1);"[{BLU}" 

: rem 

9 

1 20 

IFA< 30RA>3 5THENC = -C:B=B-1 

: rem 

21 0 

1 25 

IFB=3THENl000 

: rem 

201 

1 30 

GOTO20 

: rem 

47 

1 40 

PRINTLEFT$(D$,L+1);TAB(K)" ":PRINTLEFT$(D$ 

,L+2);TAB(K 


-2);"{ 5 SPAZI}":T=0 

: rem 

27 

1 41 

IFL< 20THENPRINTLEFT$(D$,L+3);TAB(K-1)"{ 3 

SPAZI}” 



- 

: rem 

249 

1 50 

RETURN 

: rem 

118 

1 60 

PRINTLEFT?(D$,1+1);TAB(Q);"{GRN}*{BLU}":LIVES=LIVES-1 


:DU=.1:HI=2:LO=90:GOSUB2000 

: rem 

1 8 

1 61 

DU=.1:HI = 3 :LO=35 :GOSUB2000:Z = 0:PRINTLEFT$(D$,1 + 1); 

TAB 


(Q)" " ;/LEFT$ (D$ , 1 + 2) ; TAB ( Q— 1 ) " { 3 SPAZI}" 

: rem 

2 

1 62 

IFLIVES=OTHENl000 

: rem 

l 

1 66 

RETURN 

: rem 

125 

1 80 

DATAO,126,126,126,126,126,126,126 

: rem 

70 

1 81 

DATAO,24,118,219,255,110,24,0 

: rem 

1 20 

1 82 

DATA231,126,60,60,60,60,60,24 

: rem 

124 

1 83 

DATA28,28,8,62,8,8,20,34 

: rem 

151 

1 90 

PRINT"[<3>] 

: rem 

60 

1 91 

POKE56334,PEEK(56334)AND254 

: rem 

228 

1 92 

POKEl ,PEEK(1)AND2 51 

: rem 

58 

1 93 

FORI = 0TO215 :POKEI + 1 22 88,PEEK(1 + 53248) :NEXT 

: rem 

236 

1 94 

FORI = 216T02 4 7 : READA :POKEI + 1 2288,A:NEXT 

: rem 

67 

1 95 

F0RI = 248T0511 :POKEI + 1 2288,PEEK(1 + 53248) :NEXT:rem . 

91 

1 96 

POKEl,PEEK(1)OR4 

: rem 

1 68 

1 97 

POKE56334,PEEK(56334)ORI 

: rem 

78 

1 99 

A=35:B=22 :C=- .6:T=0:L=1 :Z = 0 :1 = 1:X=0:F=1 

: rem 

191 

200 

S=0:LIVES = 10 : RETURN 

: rem 

1 99 
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l 000 

IFLIVES=OTHENPRINT"{HOME}";TAB(3 5) "0" 

: rem 

1 46 

1 01 0 

FORO=0TO2 55STEP4 

: rem 

20 

1 020 

DU=.01:HI=0:LO=128:GOSUB2000 

: rem 

1 68 

1 025 

NEXT 

: rem 

7 

1 030 

PRINT"{HOME}{ 23 GIU'H 10 DES} UN'ALTRA 

PARTITA 

? » 

• 



: rem 

227 

1 035 

IFS>HSTHENHS=S 

: rem 

222 

1 040 

GETA$:IFA$ <>"S"ANDA$ <>"N"THEN1 040 

: rem 

129 

1 050 

IFA$ = "S"THENGOSUBl99 :PRINT"{CLR}"; :FORV= 

1 TOl 000:1 

NEXT 


: GOTOl5 

: rem 

84 

1 060 

POKEl98,0:SYS1 98 

: rem 

207 

2000 

POKE54 2 73,HI :POKE54 2 72,LO :POKE54 2 76,33 

: rem 

234 

201 0 

FORDELAY=lTO500*DU:NEXT 

: rem 

251 

2020 

POKE54276,32 

: rem 

1 40 

2030 

RETURN 

: rem 

1 65 

4000 

POKE53272,21:PRINT"{CLR}[<4>]{BLU}{ 12 SPAZI}! 



{ 2 SPAZI}MURATORI" 

: rem 

1 49 

401 0 

PRINT"{ 12 SPAZI}[< 11 Y>]" 

: rem 

1 1 5 

401 1 

PRINT"L'OBIETTIVO E*LANCIARE GLI UMANOIDI" : rem 

1 56 

401 2 

PRINT"DALL'ASTRONAVE 

: rem 

1 89 

401 3 

ÉRINT"{GIU'}A COMPLICARE IL GIOCO CI SONO LORO, 

I" 



: rem 

76 

401 4 

PRINT"MURATORI CHE, PARTENDO DAL BASSO, 

STANNOCOSTRU 


ENDO UN MURO CHE IMPEDISCE" 

: rem 

253 

401 5 

PRINT"AGLI UMANOIDI DI ATTERRARE• PER APRIRTI UN 

VAR 


CO DEVI USARE LE BOMBE" 

: rem 

49 

401 6 

PRINT"{GIU'}HAI 10 VITE E OGNI VOLTA CHE 

UN UMANOIDE 


Il • 

/ 

: rem 

1 6 

401 7 

PRINT"COLPISCE IL MURO, UNA VITA VIENE PERSA." 




: rem 

43 

401 8 

PRINT" { 2 GIU'}{ 6 SPAZ I } Z.SGANCIA 

LE BOMBE 

II 



: rem 

26 

401 9 

PRINT"{ 6 SPAZI}M...LIBERA GLI UMANOIDI" 

: rem 

87 

4020 

PRINT"{ 3 GIU'}{ 5 SPAZI}{RVS} PER GIOCARE PREMI 

UN 


TASTO {OFF}" 

: rem 

250 

4021 

GETA$: IFA$< >""THEN4 0 21 

: rem 

238 

4022 

GETA$:IFA$=""THEN4022 

: rem 

1 79 

4025 

PRINT"{CLR}"; :POKE53272,2 8 

: rem 

108 

4030 

S=542 72 

: rem 

91 

4040 

FORXX=STOS+24:POKEXX,0 :NEXTXX 

: rem 

20 

4050 

POKES + 5,2 9 :POKES + 6,0 :POKES + 2 4,15 

: rem 

1 54 

4060 

RETURN 

: rem 

1 70 
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A TUTTA MUSICA CON 



Musica dal calcolatore, 
musica vera, musica tua! 

Con l'unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un’autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 

UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 
software di SOUND BUGGY 
potrai eseguire o comporre su 24 
ritmi ( 12 preregistrati), disporrai di 
ben 28 timbri strumentali 
( 14 preregistrati), potrai correggere, 
migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell’elettronica 
al servizio della tua creatività 
musicale. 


Volume generale 


Volume per la parte 
orchestrale 


Volume per la batteria 
elettronica 


Spia luminosa 
di corretta 
alimentazione 


MAXIPRESTAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, 
è tutto qui: il Commodore 64, il SOUND BUGGY, 
la minitastiera SIEL, il software. 


IMPORTANTE 

SOUND BUGGY 
è acquistabile 
esclusivamente tramite il 
coupon privilegiato di 
questa offerta. Ritaglialo 
e spediscilo subito. 
Usufruirai del prezzo 
bloccato fino al 

31.12.1985. 

















12 MESI DI GARANZIA 


Nome 


.Cognome 


Indirizzo 
CAP_ 


Dota 


.Località 


Firma- 

(per i minori occorre quella del genitore) 


CEDOLA PRIVILEGIATA DI ACQUISTO 

SOUND BUGGY il □ che interessa 


n Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferica 
per C 64. Speditemela 


contrassegno completa 
di minitastiera, 
pacchetto software sia 
su disco che su cassetta, 
libretto istruzioni al 
prezzo speciale di 
L. 185.000 (incluse 
L. 27.650 IVA e L. 3.750 
di spese postali). 

E inteso che il mio 


SOUND BUGGY 
sarà protetto da 

Garanzia per 1 anno. 

L J Sono interessato alla 
unità periferica per C 64 
SOUND BUGGY e vi 
prego di volermi fornire 
informazioni più 
dettagliate. 


Questa Cedola rappresenta l’unico 
modo di ordinare SOUND BUGGY, e 
riceverlo completo di tastierina e di 
programmi su disco e cassetta. 

Ritagliala e spediscila subito. 


























Una selezione di giochi recenti 
scelti tra i migliori disponibili 
sul mercato. Ciò che aspettavate 
per divertirvi. 
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BLACK HAWK 
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delle , V °' C lò a.àedo^e 
0 M,t°copoc:.o grolle. O 

: '.rovo ofeomond, d, un 

- 

pericoli 




rwer rescue 

un 

5:;«r ° ,cun ' 

dXoUà do P sX : -o : 

saranno comunque po 


Ritaglia ed invia a 

Spett. J.soff 

. Viale Restelli, 5 - 20124 Milano (MI) 
Tel. 02/6888228-683797-6880841/2/3/ 


Ordino 

il seguente software per il C 64 


cod 

cod 

cod. 

cod 

rad 

cod 

cod 

cod. 

cod. 


per un totale di L _ + L. 2.500 per contributo fisso di spese di spedizione. 

Scelgo lo seguente modalità di pagamento: □ pagherò in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l'importo sul C.C.P. n 19445204 
intestato a J.soff (allego ricevuta) 

Nome_ 

Cognome __ 

Via _ 


n. 


C.A.P. 


Città 


Prov. 























